home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / vectprob.src < prev    next >
Text File  |  1992-08-18  |  1KB  |  50 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ VECTPROB by James H. Cloos
  3. DIR
  4.   P\->D
  5.     \<< ARRY\-> EVAL \->LIST DUP SIZE { } \-> A n B
  6.       \<< 0 1 n
  7.         FOR J A J GET + DUP 'B' SWAP STO+
  8.         NEXT DROP B LIST\-> \->ARRY
  9.       \>>
  10.     \>>
  11.   PXYZ
  12.     \<< ROT ROT DUP2 5 ROLL NXYZ SWAP ROT ^ /
  13.     \>>
  14.   PXY
  15.     \<< DUP2 NXY SWAP ROT ^ /
  16.     \>>
  17.   NXYZ
  18.     \<< 1 - 3 PICK OVER - \-> d s n m
  19.       \<< { } 1 s
  20.         FOR J J m ^ J 1 - m ^ - +
  21.         NEXT LIST\-> \->ARRY
  22.         IF n
  23.         THEN n s NXY IBM
  24.         END
  25.       \>>
  26.     \>>
  27.   NXY
  28.     \<< { } + 1 CON SWAP IBP
  29.     \>>
  30.   IBM
  31.     \<< DUP2 SIZE EVAL SWAP SIZE EVAL DUP2 + 1 - 1 \->LIST 0 CON 1 3 ROLL
  32.       FOR I 1 3 PICK
  33.         FOR J DUP I J + 1 - GET 5 PICK I GET 5 PICK J GET * + I J + 1 -
  34. SWAP PUT
  35.         NEXT
  36.       NEXT 4 ROLLD 3 DROPN
  37.     \>>
  38.   IBP
  39.     \<< DUP 1
  40.       IF >
  41.       THEN \-> x y
  42.         \<< x 1 y 1 -
  43.           START x IBM
  44.           NEXT
  45.         \>>
  46.       ELSE DROP
  47.       END
  48.     \>>
  49. END
  50.